home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / MEDUT124.LHA / Install MEDUtils < prev    next >
Encoding:
Text File  |  1995-08-02  |  1.9 KB  |  60 lines
  1. (
  2.     (set InstallChoices
  3.     (askoptions
  4.         (prompt "\nPlease select which parts of MEDUtils you would like to install:\n")
  5.         (help
  6.         (cat
  7.             "MEDPlay plays MED and OctaMED music modules.\n"
  8.             "MEDAlloc, MEDRip etc are used for extracting music modules from games and demos.\n"
  9.             "MEDUtils.doc provides documentation for these programs.\n"
  10.             "MEDUtils.guide provides documentation in AmigaGuide format.\n"
  11.             "For more information, read MEDUtils.doc/guide.\n"
  12.             @askoptions-help
  13.         )
  14.         )
  15.         (choices "MEDPlay" "MakeRipperDisk, MEDAlloc, MEDRip and MEDWipe" "MEDUtils.doc" "MEDUtils.guide")
  16.         (default 11)
  17.     )
  18.     )
  19.  
  20.     (set @default-dest
  21.     (askdir
  22.         (prompt "Select the directory to install the chosen programs to:")
  23.         (help @askdir-help)
  24.         (default "")
  25.     )
  26.     )
  27.  
  28.     (if (bitand InstallChoices 1)
  29.     (
  30.         (copyfiles (source "MEDPlay") (dest @default-dest))
  31.         (copyfiles (source "MEDPlay.info") (dest @default-dest))
  32.         (copylib (source "reqtools.library") (dest "LIBS:"))
  33.     )
  34.     )
  35.     (if (bitand InstallChoices 2)
  36.     (
  37.         (copyfiles (source "MakeRipperDisk") (dest @default-dest))
  38.         (copyfiles (source "MakeRipperDisk.info") (dest @default-dest))
  39.         (copyfiles (source "MEDAlloc") (dest @default-dest))
  40.         (copyfiles (source "MEDAlloc.info") (dest @default-dest))
  41.         (copyfiles (source "MEDRip") (dest @default-dest))
  42.         (copyfiles (source "MEDRip.info") (dest @default-dest))
  43.         (copyfiles (source "MEDWipe") (dest @default-dest))
  44.         (copyfiles (source "MEDWipe.info") (dest @default-dest))
  45.     )
  46.     )
  47.     (if (bitand InstallChoices 4)
  48.     (
  49.         (copyfiles (source "MEDUtils.doc") (dest @default-dest))
  50.         (copyfiles (source "MEDUtils.doc.info") (dest @default-dest))
  51.     )
  52.     )
  53.     (if (bitand InstallChoices 8)
  54.     (
  55.         (copyfiles (source "MEDUtils.guide") (dest @default-dest))
  56.         (copyfiles (source "MEDUtils.guide.info") (dest @default-dest))
  57.     )
  58.     )
  59. )
  60.